home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh2x / sh25.d64 / listing 23 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  51 lines
  1. 10 REM PROGRAMM ZUR KONVERTIERUNG
  2. 20 REM VON VIER HEXBYTES IN DIE
  3. 30 REM FUENF ENTSPRECHENDEN
  4. 40 REM GCR-AEQUIVALENTE
  5. 50 REM
  6. 60 REM
  7. 70 REM
  8. 80 REM (W) 1985 BY KARSTEN SCHRAMM
  9. 90 REM
  10. 100 A$="0123456789ABCDEF":DIMG$(15):E$=""
  11. 110 G$(0)="01010"
  12. 120 G$(1)="01011"
  13. 130 G$(2)="10010"
  14. 140 G$(3)="10011"
  15. 150 G$(4)="01110"
  16. 160 G$(5)="01111"
  17. 170 G$(6)="10110"
  18. 180 G$(7)="10111"
  19. 190 G$(8)="01001"
  20. 200 G$(9)="11001"
  21. 210 G$(10)="11010"
  22. 220 G$(11)="11011"
  23. 230 G$(12)="01101"
  24. 240 G$(13)="11101"
  25. 250 G$(14)="11110"
  26. 260 G$(15)="10101"
  27. 270 PRINT"[147]HEX - GCR - KONVERTIERUNG":PRINT
  28. 280 PRINT:PRINT"GEBEN SIE JETZT 4 HEXBYTES EIN":PRINT
  29. 290 PRINT"Z.B. ED 34 27 58":INPUT"";H$:GC$=""
  30. 300 GOSUB470:FORX=1TO4
  31. 310 H1$=MID$(H$,X*2-1,1):H2$=MID$(H$,X*2,1)
  32. 320 H1=VAL(H1$):H2=VAL(H2$)
  33. 330 IFH1=0ANDH1$<>"0"THENH1=ASC(H1$)-55
  34. 340 IFH2=0ANDH2$<>"0"THENH2=ASC(H2$)-55
  35. 350 GC$=GC$+G$(H1)+G$(H2)
  36. 360 NEXTX
  37. 370 FORX=1TO10
  38. 380 B=0:B$=MID$(GC$,X*4-3,4)
  39. 390 FORY=0TO3
  40. 400 IFMID$(B$,Y+1,1)="1"THENB=B+2^(3-Y)
  41. 410 NEXTY
  42. 420 E$=E$+MID$(A$,B+1,1)
  43. 430 IFX/2=INT(X/2)THENE$=E$+" "
  44. 440 NEXTX
  45. 450 PRINT:PRINT:PRINT"GCR: ";E$
  46. 460 END
  47. 470 X$="":FORX=1TOLEN(H$)
  48. 480 IFMID$(H$,X,1)<>" "THENX$=X$+MID$(H$,X,1)
  49. 490 NEXT
  50. 500 H$=X$:RETURN
  51.